﻿
Partial Class Dialogos_frmPopUpComentario
    Inherits System.Web.UI.Page

    'Private ds As New DataSet
    'Private dvw As DataView
    'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    If Not Page.IsPostBack Then
    '        Response.Cache.SetCacheability(HttpCacheability.NoCache)
    '        Response.Cache.SetExpires(DateTime.Now().Subtract(New TimeSpan(1, 0, 0)))
    '        Response.Cache.SetLastModified(DateTime.Now)
    '        Response.Cache.SetAllowResponseInBrowserHistory(False)

    '        RecuperarValoresURL()
    '        ConsultarObservacion()
    '    End If
    'End Sub
    'Private Sub RecuperarValoresURL()
    '    hidTipoComentario.Value = Request.QueryString("TipoComentario")

    '    Me.hidUsuario.Value = Request.QueryString("Usuario")
    '    Me.hidEstacion.Value = Request.QueryString("Estacion")

    '    If Not hidTipoComentario.Value = C_CAD_GRV_CABECERA Then
    '        Me.hidComentario2.Value = Session("C_DG_ARTICULOS_COMENTARIO")
    '    Else
    '        Me.hidProceso.Value = Request.QueryString("Proceso")
    '        Me.hidIncidente.Value = Request.QueryString("Incidente")
    '    End If
    'End Sub
    'Private Sub ConsultarObservacion()
    '    ds = fnCargaDataSet()
    '    dvw = ds.Tables(0).DefaultView
    '    Cache("dvw_obs") = dvw
    '    EnlazarDatagrid(dgdObservaciones, dvw)
    'End Sub
    'Private Function fnCargaDataSet() As DataSet
    '    Dim dsComentario As New DataSet
    '    Dim dtComentario As New DataTable
    '    If Me.hidTipoComentario.Value = C_CAD_GRV_CABECERA Then
    '        Dim oNegObservacion As New srvNegObservacion.srvNegObservacion
    '        Dim sError As String
    '        Dim vOk As Boolean
    '        vOk = oNegObservacion.Listar(1, Convert.ToInt64(Me.hidIncidente.Value), Me.hidProceso.Value.ToString, _
    '        dsComentario, sError)
    '        If Not vOk Then
    '            Me.lblMensaje.Text = sError
    '        End If
    '    Else
    '        Dim drComentario As DataRow
    '        dtComentario.Columns.Add("fecha")
    '        dtComentario.Columns.Add("steplabel")
    '        dtComentario.Columns.Add("observacion")
    '        dtComentario.Columns.Add("usuario")
    '        fnCargaFilas(dtComentario)
    '        dsComentario.Tables.Add(dtComentario)
    '    End If
    '    Return dsComentario
    'End Function

    'Private Sub fnCargaFilas(ByRef dtComentario As DataTable)
    '    Dim drComentario As DataRow
    '    Dim cadenas As String() = Me.hidComentario2.Value.Split(CC_CHAR_SEP)

    '    Dim fila As String
    '    Dim columnas As String()
    '    For Each fila In cadenas
    '        columnas = fila.Split(CC_CHAR_DIV)

    '        If columnas.Length = 4 Then
    '            drComentario = dtComentario.NewRow
    '            drComentario.Item("fecha") = columnas(0)
    '            drComentario.Item("usuario") = columnas(1)
    '            drComentario.Item("steplabel") = columnas(2)
    '            drComentario.Item("observacion") = columnas(3)
    '            dtComentario.Rows.Add(drComentario)
    '        End If
    '    Next
    'End Sub
    'Private Sub fnRegistrarObservacionDetalle()
    '    Me.hidComentario2.Value = Me.hidComentario2.Value & CC_CHAR_SEP
    '    Dim cadena As String
    '    cadena = System.DateTime.Now.ToShortDateString & CC_CHAR_DIV & Me.hidUsuario.Value & CC_CHAR_DIV & Me.hidEstacion.Value & CC_CHAR_DIV & Me.txtObservacion.Text
    '    Me.hidComentario2.Value = Me.hidComentario2.Value & cadena

    '    Session("C_DG_ARTICULOS_COMENTARIO") = Me.hidComentario2.Value
    'End Sub
    'Private Sub fnRegistrarObservacionCabecera()
    '    Dim oNegObservacion As New srvNegObservacion.srvNegObservacion
    '    Dim sError As String
    '    Dim vOk As Boolean
    '    vOk = (oNegObservacion.Insertar(1, Convert.ToInt64(Me.hidIncidente.Value), Me.hidProceso.Value.ToString, _
    '    Me.hidEstacion.Value, Me.hidUsuario.Value.ToString, _
    '    Me.txtObservacion.Text, sError))
    '    If Not vOk Then
    '        Me.lblMensaje.Text = sError
    '    End If
    'End Sub
    'Private Function RegistrarObservacion() As Boolean
    '    If Me.hidTipoComentario.Value = C_CAD_GRV_CABECERA Then
    '        fnRegistrarObservacionCabecera()
    '    Else
    '        fnRegistrarObservacionDetalle()
    '    End If
    'End Function
    'Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
    '    txtObservacion.ReadOnly = False
    '    txtObservacion.Text = String.Empty
    '    btnAgregarObservacion.Enabled = True
    'End Sub
    'Private Sub btnAgregarObservacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregarObservacion.Click
    '    RegistrarObservacion()
    '    ConsultarObservacion()

    '    txtObservacion.Text = String.Empty
    'End Sub
    'Private Sub dgdObservaciones_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgdObservaciones.SelectedIndexChanged
    '    dvw = Cache("dvw_obs")
    '    txtObservacion.Text = dvw(dgdObservaciones.SelectedIndex)("observacion")
    '    txtObservacion.ReadOnly = True
    '    btnAgregarObservacion.Enabled = False
    'End Sub
End Class
